home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)se.d64 / siren.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  253b  |  14 lines
  1. 5200 REM SIREN
  2. 5210 S=54272
  3. 5220 FOR L=0 TO 24:POKE S+L,0:NEXT
  4. 5230 POKE S+14,5 :POKE S+18,16
  5. 5240 POKE S+3,1  :POKE S+24,143
  6. 5250 POKE S+6,240:POKE S+4,65
  7. 5260 FR=5389
  8. 5270 FOR T=1 TO 200
  9. 5272 :  FQ=FR+PEEK(S+27)*3.5
  10. 5274 :  HF=INT(FQ/256):LF=FQ-HF*256
  11. 5276 :  POKE S,LF:POKE S+1,HF
  12. 5278 NEXT
  13. 5280 POKE S+24,0
  14.